home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / CDEF / dirent.def < prev    next >
Text File  |  1996-04-02  |  1KB  |  47 lines
  1. (* Copyright (c) xTech 19995.  All Rights Reserved *)
  2. <*+ M2EXTENSIONS *>
  3. <*+ NOHEADER *>
  4. <*+ NOCODE *>
  5. <*+ CSTDLIB *>
  6. DEFINITION MODULE [2] dirent;
  7.  
  8. FROM SYSTEM IMPORT INT32, CARD16, ADDRESS, int;
  9. FROM xmRTS IMPORT X2C_pCHAR;
  10.  
  11. TYPE
  12. <*# IF __GEN_C__ THEN *>
  13. <*+ GENTYPEDEF *>
  14. <*# END *>
  15.   DIR = RECORD
  16.     d_fd: int;          (* file descriptor *)
  17.     d_loc: int;          (* offset in block *)
  18.     d_size: int;      (* amount of valid data *)
  19.     d_buf: X2C_pCHAR; (* directory block *)
  20.   END;
  21.  
  22. (*
  23.  * File-system independent directory entry.
  24.  *)
  25. <*# IF __GEN_C__ THEN *>
  26. <*- GENTYPEDEF *>
  27. <*# END *>
  28.   dirent = RECORD
  29.     d_ino: CARD16;       (* "inode number" of entry *)
  30.     d_off: INT32;       (* offset of disk directory entry *)
  31.     d_reclen: CARD16;       (* length of this record *)
  32.     d_name: ARRAY [0..0] OF CHAR; (* name of file *)
  33.   END;
  34.  
  35.   dirent_t = dirent;
  36.  
  37. PROCEDURE opendir(s: ARRAY OF CHAR): ADDRESS (* DIR* *);
  38. PROCEDURE readdir(VAR d: DIR): ADDRESS (* dirent* *);
  39. PROCEDURE readdir_r(VAR d: DIR; VAR e: dirent): ADDRESS (* dirent* *);
  40.  
  41. PROCEDURE telldir(VAR d: DIR): INT32;
  42. PROCEDURE seekdir(VAR d: DIR; x: INT32);
  43. PROCEDURE rewinddir(VAR d: DIR);
  44. PROCEDURE closedir(VAR d: DIR): int;
  45.  
  46. END dirent.
  47.